***REPLICATION FOR PRESIDENTIAL STUDIES QUARTERLY
***"Tweeter-in-chief: Dynamics of Trump's populist campaign against the Fed" Binder, Gode, Potter, Spindel

***  use "replication trump tweets PSQ October 2024.dta"





**FIGURE 1 

**TIMELINE OF PRESIDENT TRUMP'S SIGNALS TO THE FED

**GENERATED IN EXCEL

"Figure 1 timeline daily tweets nyt dove signals.xls"



**FIGURE 2

**IMPACT OF FINANCIAL, ECONOMIC, POLITICAL FORCES ON TOTAL NUMBER DOVISH TWEETS EACH WEEK


newey tweetnumweek  diffmeanfc diffdallas diffmeanapprove538 fomcmeet pandemic2 if observeweek >0 & observeweek <189 , lag(4)

coefplot, drop(_cons) xtitle ("Coefficient estimate") xline(0, lcolor(black))title("Dynamics of Trump's Signals to Fed") sort( , by(b)) name(fig2left, replace)

margins , at(diffmeanfc=(-2(.25)1))
marginsplot, recast(line) plotopts(lpattern(dash))recastci(rarea) ciopts(color(*.2)) xtitle("Tightening                     Easing")  title("Simulated signals")name(fig2right, replace)

gr combine fig2left fig2right 



**FIGURE 3

**POWELL MODEL: IMPACT OF FINANCIAL, ECONOMIC, POLITICAL FORCES ON TOTAL NUMBER DOVISH TWEETS ABOUT FED/POWELL EACH WEEK
**PELOSI MODEL: IMPACT OF FINANCIAL, ECONOMIC, POLITICAL FORCES ON TOTAL NUMBER OF TWEET ATTACKS ON NANCY PELOSI EACH WEEK


newey tweetnumweek   diffmeanfc diffdallas    diffmeanapprove538 fomcmeet pandemic2  , lag(4)
estimates store Powell

newey tweetpelosiweek  diffmeanfc  diffdallas diffmeanapprove538 fomcmeet pandemic2 , lag(4)
estimates store Pelosi  

coefplot Powell  Pelosi  , drop(_cons) xline(0, lcolor(black)) sort( , by(b))
 


**APPENDIX TABLE C1 

**DESCRIPTIVE STATISTICS FOR VARIABLES USED IN RESULTS REPORTED IN TEXT


eststo clear
estpost su tweetnumweek pfdove tweetpelosiweek diffmeanfc diffdallas diffmeanapprove538 fomcmeet pandemic2 if observeweek >0 & observeweek <189 
 esttab using tablec1.rtf, replace cells("count  mean  (fmt(3)) sd (fmt(3)) min     max ") nomtitle nonumber  compress 
 
**APPENDIX TABLE C2

**Tweets (tweetnumweek) vs. NYT signals (pfdove)

eststo clear
eststo: newey tweetnumweek  diffmeanfc diffdallas diffmeanapprove538 fomcmeet pandemic2 if observeweek >0 & observeweek <189 , lag(4) 

eststo: newey pfdove diffmeanfc  diffdallas diffmeanapprove538   fomcmeet pandemic2, lag(4) 
esttab using tablec2.rtf, replace


**APPENDIX TABLE C3
**POWELL V PELOSI ATTACKS

eststo clear

eststo: newey tweetnumweek   diffmeanfc diffdallas    diffmeanapprove538 fomcmeet pandemic2  , lag(4) ///
 
eststo: newey tweetpelosiweek  diffmeanfc  diffdallas diffmeanapprove538 fomcmeet pandemic2 , lag(4)
esttab using tablec3.rtf
 


